home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPM_1041_TDialogView < prev    next >
Encoding:
Text File  |  1992-04-08  |  857 b   |  40 lines
  1. %case doChoice%
  2.     %if enabled%
  3.         %DoChoice%
  4.     %endif%
  5. %case itemNr%
  6.     %DefineItem%
  7. %case classDecl%
  8.     %if not classname = superClass%
  9.     
  10.         Type
  11.             %classname% = Object (%superClass%) 
  12.                   Procedure DoChoice    (origView:        TView;
  13.                                      itsChoice:        integer); Override;
  14.                 {$IFC qInspector}
  15.                 Procedure Fields    (
  16.                         Procedure DoToField    (fieldName:        Str255;
  17.                                              fieldAddr:        Ptr;
  18.                                              fieldType:        integer)
  19.                                     ); Override;
  20.                 {$ENDC}
  21.             end; {%classname%}
  22.     %endif%
  23. %case gDeadStripSuppression%
  24.     %StripSuppression%
  25. %case classMethods%
  26.     %if not classname = superClass%
  27.         {----------}
  28.         Procedure T%dlogname%.DoChoice    (origView:        TView;
  29.                                           itsChoice:        integer); Override;
  30.         var
  31.             origID:            IDType;
  32.         Begin
  33.             origID := origView.fIdentifier;
  34.  
  35.             inherited DoChoice (origView, itsChoice);
  36.         End; {DoChoice}
  37.  
  38.     %endif%
  39.     %ClassMethods%
  40.